home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 14 / CU Amiga Magazine's Super CD-ROM 14 (1997)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1997-09].iso / CUCD / Programming / AMOS / bestofsd / FormulaPic2.AMOS / FormulaPic2.amosSourceCode
Encoding:
AMOS Source Code  |  1992-10-20  |  933 b   |  34 lines
  1. ' *****************************************************
  2. ' *                                                   *  
  3. ' *  This AMOS-program was made by Svante Danielsson  *  
  4. ' *                                                   *  
  5. ' *      Mail me at: til96sdn@mds.mdh.se              *  
  6. ' *                                                   *  
  7. ' *****************************************************
  8.  
  9. ' Ju h�gre v�rde SZ har, dest� pixligare (och snabbare) blir det.
  10. SZ=2
  11. ' Zoom-v�rde:  
  12. ZOM=127
  13.  
  14. Screen Open 0,320,256,16,Lowres : Hide 
  15. Curs Off : Flash Off 
  16. Cls 0
  17. Degree 
  18.  
  19. Palette $5,$116,$227,$338,$449,$55A,$66B,$77C,$88D,$99E,$AAF,$BBF,$CCF,$DDF,$EEF,$FFF,$EEE,$DDD,$CCC,$BBB,$AAA,$999,$888,$777,$666,$555,$444,$333,$222,$111,$0,$0
  20.  
  21. XS=319
  22. YS=255
  23.  
  24. For X=0 To XS Step SZ
  25.    For Y=0 To YS Step SZ
  26.       I=Abs(Sin(((159-X)*(127-Y))/ZOM))*14+1
  27.       Ink I
  28.       Bar X,Y To X+SZ-1,Y+SZ-1
  29.    Next 
  30. Next 
  31.  
  32. Bell 
  33. Wait Key 
  34. Edit